home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Archives / HardwareProjects / InOutBoard.lha / In-Out-Board / Amos_Sources / Port_Ausgabe_2.ASC < prev    next >
Encoding:
Text File  |  1996-02-21  |  1.7 KB  |  61 lines
  1. '**************************************************************************
  2. '*                                                                        *
  3. '*                    Programm: Port_Ausgabe_2.Amos                       *
  4. '*                                                                        *
  5. '*                     © 1993-96 Andreas Heinrich                         *
  6. '*                                                                        *
  7. '**************************************************************************
  8. '
  9. '
  10. '        Dieses Programm schreibt an Port 3 den Wert der Variable N
  11. '                   N kann über Input eingegeben werden.
  12. '
  13. '
  14. '**************************************************************************
  15. '
  16. '  A=Port selektieren
  17. '  N=Wert an diesem Port geben
  18.    Global A,N
  19.    Hide
  20. '
  21. '
  22. A=3 : Rem       Ausgabeport 3 wird ausgewählt -> IC 4
  23. N=0 : Rem       Wert 0 in N
  24. '
  25. INIT : Rem      Nach dem einschalten einmal aufrufen
  26. '
  27. '**************************** Hauptprogramm *******************************
  28. '
  29. '
  30. '
  31. Do
  32. Print
  33. Print "   Gebe eine Zahl ein: ";
  34. '
  35. '     Die Zahl sollte natürlich im 8 Bit - Bereich liegen. ( 0 - 255 )
  36. '
  37. Input N
  38. SCHREIBEN
  39. Loop
  40. '
  41. '
  42. '************************** Proceduren ********************************
  43. '
  44. Procedure SCHREIBEN
  45. '
  46. Poke 12570624,248+A : Rem  Adresse A selektieren
  47. Poke 12575489,255 : Rem    Port als Ausgang schalten
  48. Poke 12574977,N : Rem      Wert N schreiben
  49. Poke 12570624,255 : Rem    Ready LED einschalten
  50. '
  51. End Proc
  52. '
  53. Procedure INIT
  54. '
  55. Poke 12571136,199 : Rem    Busy,P-aus und SEL=Bitmuster Ausgabe
  56. Poke 12570624,255 : Rem    Adresse 7 selektieren (Ready LED ein)
  57. Poke 12575489,0 : Rem      Port als Eingang schalten
  58. '
  59. End Proc
  60. '
  61.